home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 231 / 231.d81 / eptitude test (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  70 lines
  1. 0 in$="":dq=peek(186)
  2. 2 a=a+1:ifa=1thenload"input any.o",dq,1
  3. 10 poke53280,.:poke53281,.
  4. 100 in$="[216]":sc=0
  5. 110 readt:dimqt$(t),vt$(25)
  6. 115 vt$=""
  7. 120 fora=1to25:vt$(a)=mid$(vt$,1,a):next
  8. 140 fori=1tot:readqt$(i):nexti
  9. 160 data 4
  10. 180 data "[208]roceed with test"
  11. 190 data "[199]o ahead"
  12. 200 data "[198]irst question, please"
  13. 210 data "[209]uit"
  14. 310 print"[147]             [197]ptitude [212]est"
  15. 315 print"[153]             [194]y [196]an [212]obias"
  16. 317 print"      [195]-64 version by [205]ike [205]aynard"
  17. 320 print"[159][208]lease [195]hoose:":fori=1tot:print""i;"[157][154]. ";qt$(i):nexti
  18. 330 print"[154][212]ype the number of your choice:";
  19. 336 getok$:ifok$=""then336
  20. 339 ifok$="4"then6000
  21. 340 ok=val(ok$):ifok<1orok>tthen336
  22. 350 print"[147][208][204][197][193][211][197] [215][193][201][212] [198][207][210] [212][200][197] [212][197][211][212] [212][207] [194][197] [195][210][197][193][212][197][196]"
  23. 400 ok=.:qt$(.)="[197]ptitude [212]est"
  24. 410 open3,dq,3,"eptext":input#3,n$
  25. 420 n=20:dimq$(n),aa$(n),ab$(n),ac$(n),ad$(n),ca$(n)
  26. 430 fori=1ton:gosub450:q$(i)=in$:gosub450:aa$(i)=in$:gosub450
  27. 433 ab$(i)=in$:gosub450:ac$(i)=in$:gosub450:ad$(i)=in$
  28. 440 sys828,3,255:ca$(i)=in$:nexti:close3:goto510
  29. 450 sys828,3,255:in$=mid$(in$,1):return
  30. 510 fori=1ton
  31. 520 print"[147][158]"tab(20-len(qt$(ok))/2)""qt$(ok)
  32. 521 print"            [208]ress [153][209] to quit."
  33. 523 print"[155][209][213][197][211][212][201][207][206] #"i"[146]"
  34. 530 print"[154]"q$(i):print"[193]. [159]";aa$(i):print"[194]. [159]";ab$(i)
  35. 533 print"[195]. [159]";ac$(i):print"[196]. [159]";ad$(i):print
  36. 540 printtab(4)"[215][200][193][212] [201][211] [212][200][197] [194][197][211][212] [195][200][207][201][195][197]? ":poke198,.
  37. 542 getan$:ifan$=""then542
  38. 543 ifan$<>"a"andan$<>"b"andan$<>"c"andan$<>"d"andan$<>"q"thenprint"[145]";:goto540
  39. 545 ifan$="q"thengosub5000:goto520
  40. 550 ifan$<>ca$(i)then570
  41. 560 sc=sc+1:printvt$(20)"[129][195][207][210][210][197][195][212]!":print"[211][195][207][210][197]:[146][150]";
  42. 563 print" ";sc;" [207][213][212] [207][198] ";i:goto580
  43. 570 printvt$(20)"[153][212][200][197] [210][201][199][200][212] [193][206][211][215][197][210] [215][193][211] "ca$(i)
  44. 573 print"[211][195][207][210][197]:[146][150]";sc;" [207][213][212] [207][198] ";i
  45. 580 printvt$(24)tab(5)"[154][208][210][197][211][211] [210][197][212][213][210][206][154]";
  46. 583 print" [212][207] [195][207][206][212][201][206][213][197]...":poke198,.
  47. 584 getok$:ifok$<>chr$(13)then584
  48. 590 nexti
  49. 610 print"[147]"tab(20-len(qt$(ok))/2)""qt$(ok)""
  50. 615 print"[198][201][206][193][204] [211][195][207][210][197]:[146]";:print" "sc" [210][201][199][200][212] [207][213][212] [207][198] "n"."
  51. 620 ifsc=nthenprint:print"[212][200][193][212] [215][193][211] [208][197][210][198][197][195][212]!!!":goto710
  52. 630 p=int((sc/n)*100+.5)
  53. 640 ifp=>94thenprint:print"[212][200][193][212] [215][193][211] [197][216][195][197][204][204][197][206][212]!!":goto710
  54. 650 ifp=>84thenprint:print"[129][212][200][193][212] [215][193][211] [214][197][210][217] [199][207][207][196]!":goto710
  55. 660 ifp=>74thenprint:print"[158][212][200][193][212] [215][193][211] [199][207][207][196]":goto710
  56. 670 ifp=>70thenprint:print"[212][200][193][212] [215][193][211] [198][193][201][210].":goto710
  57. 680 ifp=>50thenprint:print"[159][212][200][193][212] [215][193][211] [208][207][207][210].":goto710
  58. 690 print:print"[154][212][200][193][212] [215][193][211] [214][197][210][217] [208][207][207][210]."
  59. 710 printvt$(24)tab(5)"[154][208][210][197][211][211] [210][197][212][213][210][206][154] [212][207] [195][207][206][212][201][206][213][197]...":poke198,.
  60. 715 getok$:ifok$<>chr$(13)then715
  61. 720 clr:goto100
  62. 5000 print"[147][154]  [193]re you sure you want to quit? ([217][154]/[206][154])":poke198,.
  63. 5010 geta$:ifa$<>"y"anda$<>"n"then5010
  64. 5020 ifa$="n"thenreturn
  65. 6000 open15,dq,15,"r0:connect=connect":input#15,er:close15:ifer<>63thenend
  66. 6010 load"connect",dq
  67. 59999 end
  68. 60000 d=peek(186):open1,d,15,"i0":n$="eptitude test"
  69. 60001 print#1,"s0:"+n$:close1:saven$,d:end
  70.